home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Comms & Internet / Theseus v1.1 / Theseus / Theseus.rsrc / LENS_132_Untitled < prev    next >
Text File  |  1997-12-23  |  1KB  |  42 lines

  1. ItemType: WIND
  2. Rect: 130,193,520,458
  3. Style: Window
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: TRUE
  8. MinSize: 100,50
  9. MaxSize: 865,597
  10. Name: Untitled
  11. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then ¬  hasedit wdid,wdname¬else if objValue="Close" then ¬  closewindow wdid,wdname¬else if objValue="Suspend" then ¬  suspendwindow wdid,wdname¬else if objValue="Resume" then ¬  hasedit wdid,wdname¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬¬¬¬
  12. Params: i0_name¬i1_text¬i2_text
  13. Result: i1_text¬i2_text
  14.  
  15. ItemType: TEXT
  16. Rect: 101,50,138,72
  17. Visible: FALSE
  18. Name: filename
  19. LockText: FALSE
  20.  
  21. ItemType: TEXT
  22. Rect: -1,-1,391,251
  23. TextFont: Geneva
  24. TextSize: 10
  25. AutoSize: FALSE
  26. GrowItem: TRUE
  27. Name: TextField
  28. LockText: FALSE
  29. Scrolling: TRUE
  30. Balloon: This is a text only document. You can type here.
  31. Script: set changed_hilite of window wdname to true
  32.  
  33. ItemType: CHK
  34. Rect: 171,148,250,164
  35. Visible: FALSE
  36. Name: changed
  37.  
  38. ItemType: PUSH
  39. Rect: 73,278,153,298
  40. Visible: FALSE
  41. Name: OK
  42. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬wsSet untitled,"TextField","Selection", "2,7"¬--end mouseUp